PC-X 1997 October/pcx14_9710.iso/swag/delphi.swg/0025_Getting the Line number in a memo Field.pas

Pascal/Delphi Source File | 1995-11-22 | 429 b | 18 lines

How do you figure out what line number you are currently
on with a TMemo control?

The trick is to use the em_LineFromChar message.  Try this:

procedure TMyForm.BitBtn1Click(Sender: TObject);
var
  iLine : Integer ;
begin
   iLine := Memo1.Perform(em_LineFromChar, $FFFF, 0);
   { Note: First line is zero }
   messageDlg('Line Number: ' + IntToStr(iLine), mtInformation,
              [mbOK], 0 ) ;
end;